home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d7 / dial32.arc / DIAL.DEC < prev    next >
Encoding:
Text File  |  1989-04-25  |  3.4 KB  |  116 lines
  1. '==================== DECLARES AND COMMONS FOR DIAL.BAS ======================
  2. DECLARE SUB subline ()
  3. DECLARE SUB dirhead ()
  4. DECLARE SUB subwindow ()
  5. DECLARE FUNCTION mousemotion ()
  6. DECLARE SUB menutopline ()
  7. DECLARE SUB getsubletter ()
  8. DECLARE SUB subhighlight ()
  9. DECLARE SUB subline ()
  10. DECLARE SUB inbutton ()
  11. DECLARE SUB subbutton ()
  12. DECLARE SUB restart ()
  13. DECLARE SUB changedir ()
  14. DECLARE SUB makenewdir ()
  15. DECLARE SUB setdpath ()
  16. DECLARE SUB setcolor ()
  17. DECLARE SUB setsound ()
  18. DECLARE SUB setport ()
  19. DECLARE SUB setmouse ()
  20. DECLARE FUNCTION newdate$ ()
  21. DECLARE FUNCTION newtime$ (oldtime$)
  22. DECLARE SUB settings ()
  23. DECLARE SUB dialheader ()
  24. DECLARE SUB findname ()
  25. DECLARE SUB showlist ()
  26. DECLARE SUB getname ()
  27. DECLARE SUB keyin (length!)
  28. DECLARE SUB clock ()
  29. DECLARE SUB checkinput ()
  30. DECLARE SUB sortdatafile ()
  31. DECLARE SUB checkdatafile ()
  32. DECLARE SUB header ()
  33. DECLARE SUB opendatafile ()
  34. DECLARE SUB openlogfile ()
  35. DECLARE SUB openport ()
  36. DECLARE SUB changedir ()
  37. DECLARE SUB hyphen ()
  38. DECLARE SUB editname ()
  39. DECLARE SUB demondial ()
  40. DECLARE SUB logcall ()
  41. DECLARE SUB ring ()
  42. DECLARE SUB addnames ()
  43. DECLARE SUB helpscreen (page)
  44. DECLARE SUB initialize ()
  45. DECLARE SUB writedatafile ()
  46. DECLARE SUB goodbye ()
  47. DECLARE SUB addname ()
  48. DECLARE SUB deletename ()
  49. DECLARE SUB viewdir ()
  50. DECLARE SUB readdatafile ()
  51. DECLARE SUB checklisting ()
  52. DECLARE SUB hangup ()
  53. DECLARE SUB readcommandline ()
  54. DECLARE SUB getnames ()
  55. DECLARE SUB timeout ()
  56. DECLARE SUB placecall ()
  57. DECLARE SUB dialog (margin!, head$)
  58. DECLARE SUB mainscreen ()
  59. DECLARE SUB clearall ()
  60. DECLARE SUB setnames ()
  61. DECLARE SUB menuarrays ()
  62. DECLARE SUB menuroutine ()
  63. DECLARE SUB menuunhighlight ()
  64. DECLARE SUB menuletter ()
  65. DECLARE SUB menufindcol ()
  66. DECLARE SUB menuhighlight ()
  67. DECLARE SUB menutoploop ()
  68. DECLARE SUB menuinput ()
  69. DECLARE SUB initialize ()
  70. DECLARE SUB prompt (msg$)
  71. DECLARE SUB click ()
  72. DECLARE SUB pagehead (page$)
  73. DECLARE SUB makenewdir ()
  74. DECLARE SUB qsort (srtn(), mid)
  75. DECLARE SUB getbutton ()
  76. DECLARE SUB mousewindow (left, right, top, bottom)
  77. DECLARE SUB mouse (m1, m2, m3, m4)
  78. DECLARE SUB mouseis (value)
  79. DECLARE SUB mouseread ()
  80. DECLARE SUB mousecommand ()
  81. DECLARE SUB hidemouse ()
  82. DECLARE SUB showmouse ()
  83. DECLARE SUB getmouse ()
  84. DECLARE SUB mousepage ()
  85. DECLARE SUB mousemove (mrow, mcol)
  86. DECLARE FUNCTION mouseinstalled ()
  87. DECLARE FUNCTION dosvers ()
  88.  
  89. COMMON SHARED in$, numrecs, mid, datafile$, tempfile$, logfile$, initial$
  90. COMMON SHARED hour$, min$, sec$, tone$, phonelist, phonelist$, mouseon
  91. COMMON SHARED dial$, call$, inline$, name$, number$, tempfile, logfile, tottime$
  92. COMMON SHARED port$, start, totime$, ontime$, offtime$, port, datafile, entry
  93. COMMON SHARED quote$, prefix$, max, comma$, esc$, demon, try, version, path$
  94. COMMON SHARED lft$, rght$, fore, high, back, freq, items, dirpage, add$
  95. COMMON SHARED enter$, up$, down$, bksp$, home$, end$, pgup$, pgdn$, dev$
  96. COMMON SHARED sel, subsel, lin, col, button, mrow, mcol, totsubs
  97.  
  98. TYPE RegType
  99.       ax    AS INTEGER
  100.       bx    AS INTEGER
  101.       cx    AS INTEGER
  102.       dx    AS INTEGER
  103.       bp    AS INTEGER
  104.       si    AS INTEGER
  105.       di    AS INTEGER
  106.       flags AS INTEGER
  107. END TYPE
  108.  
  109. max = 480
  110. DIM SHARED sel$(11, 11), d$(5), l$(25), srtn(max), name$(max), number$(max)
  111. DIM SHARED day$(7), month$(12)
  112. DIM SHARED inregs AS RegType, outregs AS RegType
  113.  
  114.  
  115.  
  116.